Μπορείτε να δημιουργήσετε μια παραλλαγή εγγραφής έτσι
πληκτρολογήστε muint64 = εγγραφή
boolean πεζών από
true: (i64: int64);
false: (lo32, hi32: καρδινάλιος);
τέλος;
Τώρα μπορείτε απλώς να χρησιμοποιήσετε τους καρδινάλους για να γεμίσετε το uint64 με δεδομένα χωρίς υπογραφή.
Η άλλη επιλογή θα ήταν να χρησιμοποιήσετε κώδικα όπως αυτό:
const σχεδόνmaxint64 = 800000045000000 $;
var muint64: int64;
αρχίζουν
muint64: = σχεδόνmaxint64;
muint64: = muint64 shl 1;
τέλος
|
Χωρίς υποστήριξη από τον μεταγλωττιστή δεν έχετε πολλές επιλογές.
Υποθέτω ότι θέλετε να μεταβιβάσετε μια τιμή σε μια συνάρτηση σε κάποιο εξωτερικό DLL. Θα πρέπει να δηλώσετε την παράμετρο ως υπογεγραμμένο ακέραιο 64 bit, Int64. Στη συνέχεια, το μόνο που μπορείτε να κάνετε είναι να περάσετε την υπογεγραμμένη τιμή που έχει το ίδιο μοτίβο bit με την επιθυμητή τιμή χωρίς υπογραφή. Φτιάξτε τον εαυτό σας ένα μικρό εργαλείο μετατροπής με έναν μεταγλωττιστή που έχει υποστήριξη για ακέραιοι αριθμούς 64 bit.
|
Παραδοσιακά, οι εφαρμογές Broland αντιμετώπισαν προβλήματα διαλειτουργικότητας επειδή η έλλειψη των μεγαλύτερων υπογραφών υποστηρίζεται από την πλατφόρμα στόχου. Θυμάμαι τη χρήση τιμών LongInt αντί για DWORD και περίμενα προβλήματα από τις πρώτες μέρες του Turbo Pascal για Windows. Τότε ήταν ο Καρδινάλιος ευτυχία, αλλά όχι, η D4 παρουσίασε το μεγαλύτερο ακέραιο Int64 μόνο με την υπογεγραμμένη μορφή του. Πάλι.
Έτσι, η μόνη σας επιλογή είναι να βασιστείτε στον υπογεγραμμένο βασικό τύπο Int64 και να προσευχηθείτε ... περιμένετε, όχι, απλώς χρησιμοποιήστε το Int64Rec typecast για να εκτελέσετε αριθμητικά τουλάχιστον το πιο σημαντικό μέρος ξεχωριστά.
Επιστροφή στη σταθερή δήλωση:
υπ
foo = 8000004200000001 $; // αυτό θα λειτουργήσει επειδή η δεκαεξαδική σημειογραφία δεν υπογράφεται από τη φύση της
// Ωστόσο, το δηλωμένο σύμβολο foo γίνεται υπογεγραμμένη τιμή Int64
// η προσπάθεια χρήσης δεκαδικού αριθμού θα οδηγήσει σε σφάλμα "Ακεραία σταθερά πολύ μεγάλο"
// ανατρέξτε στο θέμα "Αληθινές σταθερές" στη Βοήθεια D7 για περισσότερες λεπτομέρειες
διαδικασία TForm1.FormCreate (Αποστολέας: TObject);
αρχίζουν
// απλώς για επαλήθευση
Λεζάντα: = IntToHex (foo, SizeOf (Int64) * 2);
τέλος;
Δυστυχώς, η άλλη λύση είναι να αλλάξετε τον μεταγλωττιστή σας. Το Free Pascal διατηρεί πάντα συγχρονισμένους και μη υπογεγραμμένους τύπους.
Αυτό το απόσπασμα συγκεντρώνει και αποδίδει το σωστό αποτέλεσμα στην έκδοση Borland Delphi Έκδοση 15.0 (γνωστή και ως Delphi 7).
|
Η απάντησή σου
StackExchange.ifUsing ("πρόγραμμα επεξεργασίας", συνάρτηση () {
StackExchange.using ("externalEditor", συνάρτηση () {
StackExchange.using ("snippets", function () {
StackExchange.snippets.init ();
});
});
}, "κώδικα-αποσπάσματα");
StackExchange.ready (λειτουργία () {
var channelOptions = {
ετικέτες: "" .split (""),
αναγνωριστικό: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", συνάρτηση () {
// Πρέπει να ενεργοποιήσετε το πρόγραμμα επεξεργασίας μετά από αποσπάσματα, εάν είναι ενεργοποιημένα τα αποσπάσματα
εάν (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("snippets", function () {
createEditor ();
});
}
αλλιώς {
createEditor ();
}
});
συνάρτηση createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
Τύπος καρδιακού παλμού: «απάντηση»,
autoActivateHeartbeat: false,
convertImagesToLinks: αλήθεια,
noModals: αλήθεια,
showLowRepImageUploadWarning: αλήθεια,
φήμηToPostImages: 10,
bindNavPrevention: αλήθεια,
μετά την επιδιόρθωση: "",
imageUploader: {
brandingHtml: "Powered by \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "ύψος = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http://www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46,2665 7,94324 47,1084 7.58816C47.4091 7,46349 47,7169 7,36433 48,0099 7.26993C48.9099 6,97997 49,672 6,73443 49,672 5.93063C49.672 5,22043 48,9832 4,61182 48,1414 4.61182C47.4335 4,61182 46,7256 4,91628 46,0943 5.50789C45.7307 4,9328 45,2525 4,66231 44,6595 4.66231C43.6264 4,66231 43,1481 5,28821 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 10.1419414441441444144414441444144414441444144.444441444144414441444144414444144.444414441444144414444144.4444144 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.44 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "even-clip \ κανόνας \" = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9913 4.778 4.779.577 4.8238 4.779.577. .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.8346C28.125.131.231.128.131.131.131 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.9737 11233239179 Μ16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62855.65.6165.615.686 4.6165.615.65.65.666.615.65.65.6555.615.686 8,57809 4,89931 7,9466 5.5079C7.58314 4,9328 7,10506 4,66232 6,51203 4.66232C5.47873 4,66232 5,00066 5,28821 5,00066 6.59049V11.9512C5.00066 13,2535 5,47873 13,8962 6,51203 13.8962C7.54479 13,8962 8,0232 13,2535 8,0232 11.9512V8.90741C8.0232 7,58817 8,44431 6,91179 9,53458 6.91179C10. 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath d = \" M3.31675 6.59049C3.31675 5.28821 2.83866 4.66232 1.82471 4.66232C0.791758 4.635354354354354 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0.400291C0.843612 0.400291 0 1.1159 0 1.988616676676677 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/ \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e",
contentPolicyHtml: "Συνεισφορές χρηστών με άδεια βάσει \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "\ u003e (content content) \ u003c / a \ u003e",
allowUrls: αλήθεια
},
onDemand: αλήθεια,
discardSelector: ".discard-answer"
, αμέσωςShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Ευχαριστούμε για τη συμβολή σας στο Stack Overflow!
Μην ξεχάσετε να απαντήσετε στην ερώτηση. Δώστε λεπτομέρειες και μοιραστείτε την έρευνά σας!
Αλλά αποφύγετε…
Ζητώντας βοήθεια, διευκρίνιση ή απάντηση σε άλλες απαντήσεις.
Διατύπωση δηλώσεων βάσει γνώμης · δημιουργήστε αντίγραφα ασφαλείας με αναφορές ή προσωπική εμπειρία.
Για να μάθετε περισσότερα, δείτε τις συμβουλές μας για τη σύνταξη εξαιρετικών απαντήσεων.
Το πρόχειρο αποθηκεύτηκε
Το πρόχειρο απορρίφθηκε
Εγγραφείτε ή συνδεθείτε
StackExchange.ready (λειτουργία () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Εγγραφείτε χρησιμοποιώντας το Google
Εγγραφείτε μέσω Facebook
Εγγραφείτε χρησιμοποιώντας το Email και τον κωδικό πρόσβασης
υποβάλλουν
Δημοσίευση ως επισκέπτης
Ονομα
ΗΛΕΚΤΡΟΝΙΚΗ ΔΙΕΥΘΥΝΣΗ
Απαιτείται, αλλά δεν εμφανίζεται ποτέ
StackExchange. ήδη (
λειτουργία () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23new-απάντηση ',' question_page ');
}
);
Δημοσίευση ως επισκέπτης
Ονομα
ΗΛΕΚΤΡΟΝΙΚΗ ΔΙΕΥΘΥΝΣΗ
Απαιτείται, αλλά δεν εμφανίζεται ποτέ
Δημοσιεύστε την απάντησή σας
Απορρίπτω
Κάνοντας κλικ στην επιλογή "Δημοσίευση της απάντησής σας", αποδέχεστε τους όρους παροχής υπηρεσιών, την πολιτική απορρήτου και την πολιτική cookie
Δεν είναι η απάντηση που ψάχνετε; Περιηγηθείτε σε άλλες ερωτήσεις με ετικέτα delphi uint64 ή κάντε τη δική σας ερώτηση.